home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 3 / ACE CD 3.iso / files / utils / amige312.dms / in.adf / Src2 / Tools / Arexx / arexxtest.e < prev    next >
Encoding:
Text File  |  1992-09-02  |  228 b   |  12 lines
  1. -> test arexx module, the easy way out
  2.  
  3. MODULE 'tools/arexx'
  4.  
  5. PROC main()
  6.   rx_HandleAll({process},'AREXXTESTPORT')
  7. ENDPROC
  8.  
  9. PROC process(s)
  10.   WriteF('Received message "\s" from Arexx!\n',s)
  11. ENDPROC StrCmp(s,'quit'),0,'result!'
  12.